home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 January / 1993-01.d64 / super peek (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  518b  |  16 lines
  1. 0 clr
  2. 100 rem super peek
  3. 110 for i=680 to 755:read d:poke i,d:c=c+d:next
  4. 120 if c<>8212 then print "error in data statements":end
  5. 130 sys 680
  6. 140 data 160,205,140,17,3,160,2,140
  7. 150 data 18,3,169,76,133,124,169,191
  8. 160 data 133,125,169,2,133,126,96,201
  9. 170 data 194,208,2,169,183,201,58,144
  10. 180 data 1,96,76,128,0,32,247,183
  11. 190 data 164,20,165,21,140,228,2,141
  12. 200 data 229,2,162,53,120,169,47,133
  13. 210 data 0,134,1,172,228,2,162,55
  14. 220 data 120,133,0,134,1,88,169,0
  15. 230 data 76,145,179,0
  16.